perm filename TAXSUB.OLD[TAX,LCS] blob sn#089276 filedate 1974-03-09 generic text, type T, neo UTF8
00100		SUBROUTINE ADUP(X,A)
00200		DIMENSION A(1)
00300		COMMON K,ACC,IOUT
00500		X=0
00600		DO 1 J=1,10
00700	1	X=X+A(J)
00800		WRITE(IOUT,2)X
00900	2	FORMAT('+',F12.2/)
01000		END
01100	
01200		SUBROUTINE TYP(J,I)
01300		COMMON K,ACC,IOUT
01400		K=J
01500		WRITE(IOUT,10)J,I
01600	10	FORMAT(' LINE ',I2,A1,$)
01700		END
01800		SUBROUTINE STDED(X)
01900		END
02000		SUBROUTINE SMALL(X)
02100		END